object dem05form: Tdem05form Left = 166 Top = 203 Width = 549 Height = 489 ActiveControl = Panel1 Caption = 'dem05form' Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter OnCreate = FormCreate TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 541 Height = 89 Align = alTop TabOrder = 0 object Label1: TLabel Left = 84 Top = 16 Width = 357 Height = 24 Caption = 'TPrintGridReport Report Styles Demo' Color = clBtnFace Font.Color = clMaroon Font.Height = -20 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Style1: TBitBtn Left = 8 Top = 48 Width = 85 Height = 34 Caption = 'Style &1' TabOrder = 0 OnClick = Style1Click end object Exit: TBitBtn Left = 448 Top = 48 Width = 85 Height = 34 Caption = '&Exit' ModalResult = 1 TabOrder = 1 end object Style2: TBitBtn Left = 96 Top = 48 Width = 85 Height = 34 Caption = 'Style &2' TabOrder = 2 OnClick = Style2Click end object Style3: TBitBtn Left = 184 Top = 48 Width = 85 Height = 34 Caption = 'Style &3' TabOrder = 3 OnClick = Style3Click end object Style4: TBitBtn Left = 272 Top = 48 Width = 85 Height = 34 Caption = 'Style &4' TabOrder = 4 OnClick = Style4Click end object Style5: TBitBtn Left = 360 Top = 48 Width = 85 Height = 34 Caption = 'Style &5' TabOrder = 5 OnClick = Style5Click end end object Panel2: TPanel Left = 0 Top = 89 Width = 541 Height = 373 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 1 object DBGrid1: TDBGrid Left = 6 Top = 6 Width = 529 Height = 361 Align = alClient BorderStyle = bsNone DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False TabOrder = 0 TitleFont.Color = clBlack TitleFont.Height = -15 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end end object Query1: TQuery Active = True DatabaseName = 'DBDEMOS' SQL.Strings = ( 'Select' ' parts."PartNo",' ' parts."VendorNo",' ' parts."Description",' ' parts."OnHand",' ' parts."OnOrder",' ' parts."Cost",' ' parts."ListPrice"' 'From "parts.db"' 'As parts' 'order by' 'VendorNo') Left = 196 Top = 65533 object Query1PartNo: TFloatField DisplayWidth = 7 FieldName = 'PartNo' end object Query1VendorNo: TFloatField FieldName = 'VendorNo' Visible = False end object Query1Description: TStringField DisplayWidth = 23 FieldName = 'Description' Size = 30 end object Query1OnHand: TFloatField DisplayWidth = 7 FieldName = 'OnHand' end object Query1OnOrder: TFloatField DisplayWidth = 7 FieldName = 'OnOrder' end object Query1ListPrice: TCurrencyField DisplayWidth = 9 FieldName = 'ListPrice' DisplayFormat = '$ #,##0.00' Currency = True end object Query1Cost: TCurrencyField DisplayWidth = 6 FieldName = 'Cost' DisplayFormat = '$ #,##0.00' Currency = True end end object DataSource1: TDataSource DataSet = Query1 Left = 171 Top = 65529 end object PrintGridReport1: TPrintGridReport Brush.Style = bsCross ViewButtonVisible = False OutputTo = poViewer Orientation = Default ViewBkColor = 11234567 Units = poInches ViewHeading = 'ReportIt Viewer' FooterFont.Color = clWindowText FooterFont.Height = 12 FooterFont.Name = 'Arial' FooterFont.Style = [] HeaderFont.Color = clWindowText HeaderFont.Height = 16 HeaderFont.Name = 'Arial' HeaderFont.Style = [] ZoomPercentage = 100.000000000000000000 HeaderTop = 0.500000000000000000 HeaderStringLeft = 'Demo' HeaderStringCenter = 'Page Header' HeaderStringRight = 'Reportit' HeaderEnabled = True HeaderOutlined = True HeaderFilled = False FooterTop = 24.630000000000000000 FooterString = 'Page Footer' FooterEnabled = True FooterOutlined = True FooterFilled = False DisableControls = True BorderLeft = 0.250000000000000000 BorderRight = 0.250000000000000000 DateTimeStampEnabled = True PageNumberEnabled = True GridHeadingRow = 1.500000000000000000 GridHeadingCol = 0.250000000000000000 GridHeadingEnabled = True GridHeadingOutlined = True GridHeadingFilled = False GridLines = True LineSpacing = 1.500000000000000000 Grid = DBGrid1 GridMinWidth = True GridCentered = True GridPrintTotal = True PrintSubTotals = True FrameStyleLeft = frNone FrameStyleTop = frDoubleThickThin FrameStyleRight = frNone FrameStyleBottom = frSingleThin ReportStyle = rsOwn Left = 132 Top = 65528 end end